Sub ReadMachineKeys
        Set objXML = CreateObject("msxml2.DOMDocument.3.0")
        strXmlConfigFile = "C:\Inetpub\remote\Web.config"
        objXML.Load(strXmlConfigFile)
        Session.Property("VALIDATIONKEY") = objXML.selectSingleNode("/configuration/system.web/machineKey").attributes.getNamedItem("validationKey").nodeValue 
        Session.Property("DECRYPTIONKEY") = objXML.selectSingleNode("/configuration/system.web/machineKey").attributes.getNamedItem("decryptionKey").nodeValue 
        Set objXML = Nothing
End Sub